home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tm.d64 / cupid.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  172 lines
  1. 1 D$=""
  2. 2 POKE53281,3:POKE53280,3
  3. 10 PRINT"[147]"
  4. 30 PRINT"[144]CUPID"
  5. 40 GOSUB900
  6. 50 :
  7. 100 PRINT"[147]"
  8. 120 PRINT"ROBERT KLOPP"
  9. 130 PRINT"BOX 67"
  10. 140 PRINT"FAUQUIER, BRITISH COLUMBIA"
  11. 150 PRINT"VOG 1K0"
  12. 160 GOSUB900
  13. 170 :
  14. 200 PRINT"[147]"
  15. 220 PRINT"EQUIPMENT REQUIRED TO RUN THIS PROGRAM"
  16. 230 PRINT"C-64, CASSETTE"
  17. 280 GOSUB900
  18. 290 :
  19. 300 PRINT"[147]"
  20. 310 PRINT"INSTUCTIONS"
  21. 320 PRINT"PLEASE INPUT YOUR LOVER'S NAME"
  22. 330 PRINT" : ";NA$;" [146] "
  23. 340 GETA$:IFA$=""THEN340
  24. 345 IFA$=CHR$(13)THENFL=1:GOTO880
  25. 350 IFA$=CHR$(20)ANDLEN(NA$)>0THENNA$=LEFT$(NA$,LEN(NA$)-1)
  26. 360 IFASC(A$)>64ANDASC(A$)<90THENNA$=NA$+A$
  27. 370 PRINT"[145]";:GOTO330
  28. 880 GOSUB900
  29. 890 GOTO1000
  30. 900 PRINTD$
  31. 901 PRINT"PRESS ANY KEY TO CONTINUE"
  32. 902 GETA$:IFA$=""THEN902
  33. 910 RETURN
  34. 1000 IFFL=0THENPOKE53281,3:POKE53280,3:GOTO320
  35. 1001 N$="I LOVE YOU "+NA$
  36. 1002 D$=""
  37. 1010 V$="HAPPY VALENTINES '85"
  38. 1020 S$="                        "
  39. 1030 S$=LEFT$(S$,(20-(LEN(N$)+1)/2)+1)
  40. 1040 S$=S$+N$:N$=S$
  41. 1050 :
  42. 1100 GOSUB3000
  43. 1110 :
  44. 1150 PRINT"[147]";LEFT$(D$,10);TAB(20)"[211]"
  45. 1200 POKEX1,10:POKEY1,10
  46. 1210 POKETU,2
  47. 1220 FORX=10TO70
  48. 1225 : POKEX1,X
  49. 1230 : Y=X^1.13
  50. 1235 : POKEY1,Y
  51. 1240 NEXT
  52. 1245 :
  53. 1246 PRINT"[144]"
  54. 1250 POKEX2,X:POKEY2,Y:POKETU,4
  55. 1260 FORX=10TO19
  56. 1262 : PRINTLEFT$(D$,10);TAB(X)" -"
  57. 1263 : P=50:GOSUB4000
  58. 1264 NEXT
  59. 1270 :
  60. 1990 PRINT""
  61. 2000 PRINTLEFT$(D$,10);TAB(20)"[211]"
  62. 2005 P=200:GOSUB4000
  63. 2010 PRINTLEFT$(D$,9);TAB(19)"[211] [211]"
  64. 2020 :          PRINTTAB(18)"[211][211]"
  65. 2030 :           PRINTTAB(19)"[211] [211]"
  66. 2040 :            PRINTTAB(20)"[211]"
  67. 2045 P=200:GOSUB4000
  68. 2046 :
  69. 2050 PRINTLEFT$(D$,8);TAB(17)"[211][211]   [211][211]"
  70. 2060 :          PRINTTAB(16)"[211][211]"
  71. 2070 :          PRINTTAB(16)"[211][211]"
  72. 2080 :           PRINTTAB(17)"[211][211]"
  73. 2090 :            PRINTTAB(18)"[211][211]"
  74. 2100 :             PRINTTAB(19)"[211][211]"
  75. 2110 :              PRINTTAB(20)"[211]"
  76. 2115 P=200:GOSUB4000
  77. 2116 :
  78. 2120 PRINTLEFT$(D$,7);TAB(15)                               "[211][211][211]     [211][211][211]"
  79. 2130 : PRINTTAB(14)"[211][211]"
  80. 2140 : PRINTTAB(14)"[211][211]"
  81. 2150 : PRINTTAB(14)"[211][211]"
  82. 2160 :  PRINTTAB(15)"[211][211]"
  83. 2170 :   PRINTTAB(16)"[211][211]"
  84. 2180 :    PRINTTAB(17)"[211][211]"
  85. 2190 :     PRINTTAB(18)"[211][211]"
  86. 2200 :      PRINTTAB(19)"[211][211]"
  87. 2210 :       PRINTTAB(20)"[211]"
  88. 2212 :
  89. 2213 PRINT"[144]"
  90. 2215 POKETU,2
  91. 2220 FORX=70TO140
  92. 2225 : Y=Y+.86
  93. 2230 : POKEY1,Y
  94. 2235 : POKEX1,X
  95. 2240 NEXT
  96. 2245 PRINTLEFT$(D$,18);TAB(11);
  97. 2246 :
  98. 2250 FORX=140TO255STEP8
  99. 2260 : POKEX1,X
  100. 2262 : Y=((X-140)/8)
  101. 2265 : PRINTMID$(V$,Y+1,1);
  102. 2270 NEXT
  103. 2271 FORX=2TO6
  104. 2272 : PRINTMID$(V$,Y+X,1);
  105. 2274 NEXT
  106. 2275 POKETU,0
  107. 2280 P=500:GOSUB4000
  108. 2285 :
  109. 2290 POKEX1,25:POKEY1,200:POKETU,2
  110. 2295 P=500:GOSUB4000
  111. 2300 POKEX2,25:POKEY2,200:POKETU,4
  112. 2305 PRINTLEFT$(D$,20);
  113. 2310 FORX=1TOLEN(N$)
  114. 2315 : PRINTMID$(N$,X,1)"-[157]";
  115. 2316 P=50:GOSUB4000
  116. 2320 NEXT
  117. 2325 PRINT"!"
  118. 2326 :
  119. 2330 POKETU,2
  120. 2335 Y=200
  121. 2340 FORX=25TO75
  122. 2350 : POKEX1,X
  123. 2360 : Y=Y^.996
  124. 2370 : POKEY1,Y
  125. 2380 NEXT
  126. 2390 R=INT(RND(1)*2):R1=INT(RND(1)*2)
  127. 2400 POKEX1,X+3*(R1-R)
  128. 2410 POKEY1,Y+3*(R-R1)
  129. 2420 P=100:GOSUB4000
  130. 2430 GETA$:IFA$=""THEN2390
  131. 2440 SYS2
  132. 2900 :
  133. 2925 :
  134. 2950 :
  135. 2975 :
  136. 3000 PRINT"[147]ITS ALMOST VALENTINES!!"
  137. 3010 BG=53248:SL=13
  138. 3020 TU=BG+21:S1=2:S2=4:L=2040:SS=832
  139. 3025 X1=BG+2:Y1=BG+3:X2=BG+4:Y2=BG+5
  140. 3030 FORR=0TO63
  141. 3031 : READD
  142. 3032 : POKESS+R,D
  143. 3033 NEXT
  144. 3035 FORR=64TO127
  145. 3036 : READD
  146. 3037 : POKESS+R,D
  147. 3038 NEXT
  148. 3040 POKEBG+40,1:POKEBG+41,1
  149. 3050 POKEL+1,SL:POKEL+2,SL+1
  150. 4000 FORPA=1TOP:NEXT:RETURN
  151. 4025 :
  152. 4050 :
  153. 4075 :
  154. 4100 DATA 224,112,80,88,208,136,44,201
  155. 4101 DATA   4,116,146,4,46, 100,12, 27
  156. 4102 DATA 121,252,53,79,255,43 ,168, 4
  157. 4103 DATA 115,196, 4,6 ,194,4 ,12 ,193
  158. 4104 DATA   4,25,128,136, 8,128, 80, 0
  159. 4105 DATA   0,32,  0,  0,  0,  0, 0, 0
  160. 4106 DATA   0, 0,  0,  0,  0,  0, 0, 0
  161. 4107 DATA   0, 0,  0,  0,  0,  0, 0, 0
  162. 4108 :
  163. 4109 :
  164. 4110 DATA   0, 0,192, 56,56,160,20,116
  165. 4111 DATA 144,10, 98,144, 26,68,152,15
  166. 4112 DATA  59,248,5,177,152,27,122,152
  167. 4113 DATA  14,244,152, 1,240,144, 6,16
  168. 4114 DATA 160,  2, 96,192, 0, 32, 0, 0
  169. 4115 DATA   0,  0,  0,  0,  0,  0, 0,0
  170. 4116 DATA   0,  0,  0,  0,  0,  0, 0,0
  171. 4117 DATA   0,  0,  0,  0,  0,  0, 0,0
  172.